﻿Public Class frmPrincipal

    Private Sub SetBackGroundColorOfMDIForm()
        Dim ctl As Control

        ' Loop through controls,  
        ' looking for controls of MdiClient type. 
        For Each ctl In Me.Controls
            If TypeOf (ctl) Is MdiClient Or
                TypeOf (ctl) Is Panel Or _
                TypeOf (ctl) Is Form Or
                TypeOf (ctl) Is PictureBox Then

                ' If the control is the correct type,
                ' change the color.
                ctl.BackColor = System.Drawing.Color.White

            End If
        Next

    End Sub

    Private Sub GerarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GerarToolStripMenuItem.Click


    End Sub

    Private Sub frmPrincipal_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        SetBackGroundColorOfMDIForm()
    End Sub

    Private Sub MercadoInternoToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MercadoInternoToolStripMenuItem.Click
        Dim frm As New frmProposta
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub UsuáriosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles UsuáriosToolStripMenuItem.Click
        Dim frm As New frmUsuario
        frm.MdiParent = Me
        frm.Show()
    End Sub
End Class
